home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / GRP_CVTR / REALIZ10 / RSHAPES.INC < prev    next >
Text File  |  1994-05-22  |  2KB  |  113 lines
  1. // Common POV shapes as a sample set
  2. //  - the user can make up his own customized set
  3. //  the names of some of the shapes are patterned after the original
  4. //  names found in the POV standard distribution package for compatibility.
  5.  
  6. #declare QQQ_temp = version
  7.  
  8. #version 2.0
  9.  
  10. #declare Ellipsoid=sphere{<0, 0, 0>,1}
  11.  
  12. #declare Ellipsoid_1=intersection{  // Half
  13.   sphere {<0, 0, 0>,1}
  14.   plane {-z,0}
  15.   }
  16.  
  17. #declare Ellipsoid_2=intersection{  // Quarter
  18.   sphere {<0, 0, 0>,1}
  19.   plane {z,0}
  20.   plane {x,0}
  21.   }
  22.  
  23. #declare Ellipsoid_3=intersection{  // 1/8th
  24.   sphere {<0, 0, 0>,1}
  25.   plane {z,0}
  26.   plane {x,0}
  27.   plane {y,0}
  28.   }
  29.  
  30. #declare Cube=intersection{
  31.   plane {x,1} plane {-x,1}
  32.   plane {y,1} plane {-y,1}
  33.   plane {z,1} plane {-z,1}
  34.   }
  35.  
  36. #declare Light=object{
  37.   light_source {<0.0, 0.0, 0.0>
  38.     color red 1 green 1 blue 1}
  39.   }
  40.  
  41. #declare DimLight=object{
  42.   light_source {<0.0, 0.0, 0.0>
  43.     color red .4 green .4 blue .4}
  44.   }
  45.  
  46. #declare Sun=object{
  47.   light_source {<0.0, 0.0, 0.0>
  48.     color red 1 green 0.6 blue 0.2
  49.     looks_like {sphere{<0,0,0>,1
  50.       texture{pigment{color red 1 green 0.6 blue 0.2}
  51.         finish{ambient 1  diffuse 0}}}}
  52.     }
  53.   }
  54.  
  55. #declare Disk_X=cylinder{ x,-x,1}
  56.  
  57. #declare Disk_Y=cylinder{ y,-y,1}
  58.  
  59. #declare Disk_Z=cylinder{ z,-z,1}
  60.  
  61. #declare Cone_X=cone{x,0,-x,1}
  62.  
  63. #declare Cone_Y=cone{y,0,-y,1}
  64.  
  65. #declare Cone_Z=cone{z,0,-z,1}
  66.  
  67. #declare Ibeam=difference{
  68.   object {Cube}
  69.   intersection{
  70.     plane {-x,-0.1}
  71.     plane {z,0.9}
  72.     plane {-z,0.9}
  73.   }
  74.   intersection{
  75.     plane {x,-0.1}
  76.     plane {z,0.9}
  77.     plane {-z,0.9}
  78.   }
  79.   }
  80.  
  81. #declare Hbeam=difference{
  82.   object {Cube}
  83.   intersection{
  84.     plane {-z,-0.1}
  85.     plane {x,0.9}
  86.     plane {-x,0.9}
  87.   }
  88.   intersection{
  89.     plane {z,-0.1}
  90.     plane {x,0.9}
  91.     plane {-x,0.9}
  92.   }
  93.   }
  94.  
  95. #declare Wedge=intersection{
  96.   object {Cube}
  97.   plane {-z,0 rotate<0,45,0>}
  98.   }
  99.  
  100. #declare Elbow05=intersection{
  101.   object {Cube scale <.55,.55,.06> translate<.475,.525,0>}
  102.   torus {1,0.05 sturm rotate <90,0,0> translate <1,0,0>}
  103.   bounded_by{Cube scale<.55,.55,.06> translate<.475,.525,0>}
  104.   }
  105.  
  106. #declare Elbow1=intersection{
  107.   object {Cube scale <.6,.6,.11> translate<.45,.55,0>}
  108.   torus {1,0.1 sturm rotate <90,0,0> translate <1,0,0>}
  109.   bounded_by{Cube scale<.6,.6,.11> translate<.45,.55,0>}
  110.   }
  111.  
  112. #version QQQ_temp
  113.